home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / swag / delphi.swg / 0196_Creating a Wallpaper Using Delphi.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-11-29  |  437 b   |  14 lines
  1.  
  2. To the wallpaper in Windows 95 you must use the Win32 
  3. API function SystemParametersInfo. SystemParametersInfo retrieves
  4. and sets system wide parameters including the wallpaper. The 
  5. code below illustrates setting the wallpaper to the Athena bitmap.
  6.  
  7. procedure TForm1.Button1Click(Sender: TObject);
  8. var
  9.   s: string;
  10. begin
  11.    s := 'c:\windows\athena.bmp';
  12.    SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s), 0)
  13. end;
  14.